home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / demo / mag / EC29a.lha / Install < prev    next >
Text File  |  1997-03-29  |  1KB  |  46 lines
  1. ; Installer for the magnificent Official Eurochart by Depth
  2.  
  3. (message "Welcome to the Official Eurochart install script \n Theres nothing to it realy, so we haven't included different levels of operation mode. \n Please remember that BOTH archives needs to be extracted to the same place.")
  4.  
  5. (set @default-dest
  6.  (askdir 
  7.     (help "Just select the stupid dir!!! For christ sake.. Go buy a PC..")
  8.     (prompt "Please select a dir for The Official Eurochart.\nA directory named EuroChart28 will be created there.")
  9.     (default "")
  10.  )
  11. )
  12.  
  13. (if (not (exists "Fonts:EuroChartSmall.font"))
  14.  (if (not (exists "Fonts:EuroChartBig.font"))
  15.   (copyfiles
  16.     (help "What are you?? Bill I'm to sexy for my mom Gates?? I'm copying some files you jerk!")
  17.     (prompt "Copying requiered fonts to FONTS:")
  18.     (all)
  19.     (dest "FONTS:")
  20.     (source "fonts")
  21.   )
  22.  )
  23. )
  24.  
  25. (set @default-dest 
  26.     (tackon @default-dest "EuroChart29")
  27. )
  28.  
  29. (makedir @default-dest)
  30.  
  31. (copyfiles
  32.     (help "What are you?? Bill I'm to sexy for my mom Gates?? I'm copying some files you jerk!")
  33.     (prompt "Copying the Official Eurochart")
  34.     (all)
  35.     (dest @default-dest)
  36.     (source "")
  37. )
  38.  
  39. (delete (tackon @default-dest "install"))
  40. (delete (tackon @default-dest "install.info"))
  41. (run
  42.    (cat 'delete "' (tackon @default-dest 'fonts') '" all quiet')
  43.    (prompt "")
  44. )
  45. (exit)
  46.